MODULE TEST;

CONST
    fconst = 12 DIV 3;

TYPE
    abc = ARRAY fconst OF LONGINT;
    
VAR
    x, y : INTEGER;
    z : LONGINT;
    m : ARRAY 5 OF INTEGER;
    
PROCEDURE SUM(VAR A, B : INTEGER);
VAR SUM : INTEGER;
BEGIN
	SUM := 3;
END SUM;

BEGIN
    x := 4;
    y := 5 * fconst;
    a[fconst * 2 - 4] := (4 + 6 ) * (7 - 8) DIV (5 MOD 2);
    SUM(x, y);
END TEST.

